home *** CD-ROM | disk | FTP | other *** search
/ An Invitation to the Roland World of Music / Roland - An Invitation To The Roland World Of Music.bin / vb / vb30 / disk2 / form1.fr_ / form1.bin
Text File  |  1993-04-27  |  1KB  |  54 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4140
  5.    ClientLeft      =   960
  6.    ClientTop       =   1410
  7.    ClientWidth     =   5655
  8.    Height          =   4545
  9.    Left            =   900
  10.    LinkTopic       =   "Form3"
  11.    ScaleHeight     =   4140
  12.    ScaleWidth      =   5655
  13.    Top             =   1065
  14.    Width           =   5775
  15. End
  16.  
  17.  
  18.  
  19. Sub CheckToSave ()
  20.     AskCheck = False
  21.     For i = 0 To forms.Count - 1
  22.         If forms(i).Tag = "College" Or forms(i).Tag = "General" Then
  23.             AskCheck = True
  24.         End If
  25.     Next
  26.     If AskCheck Then
  27.         Dim Msg, NL
  28.         Dim Response As Integer
  29.         NL = Chr$(10) & Chr$(13)
  30.         Msg = "The information in this savings has been changed."
  31.         Msg = Msg & NL
  32.         Msg = Msg & "Do you want to save the changes?"
  33.         Response = MsgBox(Msg, 51, "Visual Basic Savings Planner")
  34.         Select Case Response
  35.         Case 2  'User selects Cancel, cancel the unload
  36.             Cancel = True
  37.         Case 6  'User select Yes, save the savings plan
  38.             SavePlan    'Invoke the Save procedure
  39.         Case 7  'User selects No, Ok to unload
  40.             Cancel = False
  41.         End Select
  42.     End If
  43. End Sub
  44.  
  45. Sub Form_Load ()
  46.  
  47.  
  48. End Sub
  49.  
  50. Sub SavePlan ()
  51.  
  52. End Sub
  53.  
  54.